home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / qbbs276s.zip / CHRIS-G.ZIP / NEWUSER.Q-A < prev    next >
Text File  |  1991-10-14  |  2KB  |  81 lines
  1. ClearScreen
  2. ChangeColor 14 0
  3. Display "                   New User Survey|"
  4. ChangeColor 3 0
  5. Display "                   ~~~~~~~~~~~~~~~||"
  6. Display " This information will remain confidential to the Sysop.  |"
  7. Display " Completing this survey is required for long term access  |"
  8. Display " to BIZynet BBS.  If you are listed in the phone book or  |"
  9. Display " use the Automatic Call Back Verifier, it will not be     |"
  10. Display " necessary to call you for verification.                  |"
  11. ChangeColor 10 0
  12. Display " ┌──────────────────────────────────────────────────────────────┐ |"
  13. Display " │  If for some reason you want to change your answers, please  │ |"
  14. Display " │  leave a message or select <S>urveys from the Main Menu.     │ |"
  15. Display " └──────────────────────────────────────────────────────────────┘ |"
  16. ChangeColor 3 0
  17. Display "Thanks, Chris Gunn    [SYSOP] |"
  18.  
  19. ChangeColor 14 0
  20. Display "|We need your First Name, Middle Initial, and Last Name."
  21. Display "|Please enter your legal name?  "
  22. ChangeColor 3 0
  23. Ask 28 2
  24.  
  25. ChangeColor 14 0
  26. Display "Are you a:|"
  27. ChangeColor 3 0
  28. Display "<1>  Mr.|"
  29. Display "<2>  Mrs.|"
  30. Display "<3>  Ms.|?  "
  31. GetChoice 0123 1
  32.  
  33. ChangeColor 14 0
  34. Display "|What is your age (please be honest)?  "
  35. ChangeColor 3 0
  36. Ask 2 5
  37.  
  38. ChangeColor 14 0
  39. Display "|Please enter your street address?  "
  40. ChangeColor 3 0
  41. Ask 26 3
  42.  
  43. ChangeColor 14 0
  44. Display "|Sorry to have to ask again."
  45. Display "|Please enter your City, State (ST) and Zip Code"
  46. Display "|?  "
  47. ChangeColor 3 0
  48. Ask 26 4
  49.  
  50. ChangeColor 14 0
  51. Display "|What do you look for on a BBS?|: "
  52. ChangeColor 3 0
  53. Ask 65 17
  54.  
  55. ChangeColor 14 0
  56. Display "|Where did you hear about BIZynet?|: "
  57. ChangeColor 3 0
  58. Ask 65 18
  59.  
  60. ChangeColor 14 0
  61. Display "|End of New User Survey!"
  62. ChangeColor 3 0
  63.  
  64. PostInfo
  65. OutputAnswer "Mr/Mrs/Ms  ," 1
  66. OutputAnswer "Name       ," 2
  67. OutputAnswer "Street     ," 3
  68. OutputAnswer "City,ST ZIP," 4
  69. OutputAnswer "Age        ," 5
  70. OutputAnswer "Looks For: ," 17
  71. OutputAnswer "HearAbout: ," 18
  72. OutputAnswer "Remarks    ," 20
  73. SetFlag D1 OFF
  74. SetFlag D2 ON
  75. SetFlag D3 OFF
  76. SetFlag D7 OFF
  77. SetSecurity 20
  78. ChangeColor 15 0
  79. Display "|Answers saved!  Thank you for filling out the New User Survey. |"
  80. ChangeColor 7 0
  81.